home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / mondu / getfname.bas < prev    next >
BASIC Source File  |  1994-07-21  |  610b  |  17 lines
  1. 10 '   ファイル名の探索（取り込み）
  2. 20 CLEAR ,,1024,1049,6000:DEFINT A-Z:LOADM "bas_lib.rex",0
  3. 30 CLS:PRINT "start time",TIME$
  4. 40 CMD=0   'REXｱﾄﾞﾚｽをﾛｰﾄﾞしたｵﾌｾｯﾄ
  5. 50 SEARCHFILE$="????????.???"+CHR$(0)  :SEARCHFILE& =VARPTR(SEARCHFILE$)
  6. 60 FILENAMEBUF$=SPACE$(13):FILENAMEBUF&=VARPTR(FILENAMEBUF$)
  7. 70 FILEATT=22 'sd(16) sf(4) hf(2)
  8. 80 SEARCHFLAG=0
  9. 90 RET&=0
  10. 100 WHILE RET&=0
  11. 110   RET&=CALLM(CMD,0,SEARCHFILE&,FILENAMEBUF&,FILEATT,SEARCHFLAG)
  12. 120   IF RET&=0 THEN PRINT FILENAMEBUF$ ELSE PRINT RET&
  13. 125   SEARCHFLAG=1
  14. 130 WEND
  15. 140 PRINT "何かキーを押してください。"
  16. 150 WHILE INKEY$="":WEND:END
  17.